ThisMessage="Click OK to Manage Service on NAME"
ThisResult = MsgBox (ThisMessage, 65, "Connect")
if ThisResult = 1 then
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
cmdline = "cmd.exe /c services.msc /computer=NAME"
Set oExec = WshShell.Exec(cmdline)
end if
